home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / main2sb2.tug < prev    next >
Text File  |  1991-10-18  |  1KB  |  101 lines
  1. TUGi_macro(v1.0)
  2.  
  3. main2sb2
  4. {
  5.     Graph_wait(0);
  6.     Gscroll(1);
  7.  
  8.     Screen(3);
  9.     cls(1);
  10.     paletteset();
  11.     wind_init();
  12.     wrtstr(
  13.         " "
  14.         "  それでは、１つの目のグループのグラフィック"
  15.         "  を表示しますか？"
  16.         " "
  17.     );
  18.     wind_close();
  19.     Question(
  20.         USER.TUG
  21.     );
  22.  
  23.  
  24.     Screen(3);
  25.     cls(1);
  26.     paletteset();
  27.     wind_init();
  28.     wrtstr(
  29.         " "
  30.         "  それでは、２つの目のグループのグラフィック"
  31.         "  を表示しますか？"
  32.         " "
  33.     );
  34.     wind_close();
  35.     Question(
  36.         USER2.TUG
  37.     );
  38.  
  39.     Screen(3);
  40.     cls(1);
  41.     paletteset();
  42.     wind_init();
  43.     wrtstr(
  44.         " "
  45.         "  それでは、３つの目のグループのグラフィック"
  46.         "  を表示しますか？"
  47.         " "
  48.     );
  49.     wind_close();
  50.     Question(
  51.         USER3.TUG
  52.     );
  53.  
  54.     Screen(3);
  55.     cls(1);
  56.     paletteset();
  57.     wind_init();
  58.     wrtstr(
  59.         " "
  60.         "  それでは、４つの目のグループのグラフィック"
  61.         "  を表示しますか？"
  62.         " "
  63.     );
  64.     wind_close();
  65.     Question(
  66.         USER4.TUG
  67.     );
  68.  
  69.     Screen(3);
  70.     cls(1);
  71.     paletteset();
  72.     wind_init();
  73.     wrtstr(
  74.         " "
  75.         "  それでは、５つの目のグループのグラフィック"
  76.         "  を表示しますか？"
  77.         " "
  78.     );
  79.     wind_close();
  80.     Question(
  81.         TUG.TUG
  82.     );
  83.  
  84.  
  85.     Screen(3);
  86.     cls(1);
  87.     paletteset();
  88.     wind_init();
  89.     wrtstr(
  90.         " "
  91.         "  それでは、６つの目のグループのグラフィック"
  92.         "  を表示しますか？"
  93.         " "
  94.     );
  95.     wind_close();
  96.     Question(
  97.         CHIHIRO.TUG
  98.     );
  99.     END.TUG
  100. }
  101.